home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
tu32.zip
/
TU32DEMO
/
BTCHDEMO
/
ERRTBDLG.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-11-08
|
1KB
|
49 lines
unit Errtbdlg;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls;
type
TBtnBottomDlg = class(TForm)
OKBtn: TBitBtn;
HelpBtn: TBitBtn;
DataSource1: TDataSource;
TableErrTable: TTable;
PanelRed: TPanel;
DBGridViewErr: TDBGrid;
procedure FormActivate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
BtnBottomDlg: TBtnBottomDlg;
implementation
{$R *.DFM}
procedure TBtnBottomDlg.FormActivate(Sender: TObject);
begin
TableErrTable.Active := False;
TableErrTable.DatabaseName := Session.PrivateDir;
TableErrTable.Active := True;
end;
procedure TBtnBottomDlg.FormDeactivate(Sender: TObject);
begin
TableErrTable.Active := False;
end;
procedure TBtnBottomDlg.FormCreate(Sender: TObject);
begin
TableErrTable.DatabaseName := Session.PrivateDir;
end;
end.